object dmTabelas: TdmTabelas
  OldCreateOrder = False
  Left = 192
  Top = 103
  Height = 605
  Width = 689
  object dst_grupos: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODGRUPO,'#13#10'  NOMGRUPO'#13#10'from '#13#10'  GRUPOS'#13#10'where '#13#10'  COD' +
      'GRUPO =  :pcodgrupo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodgrupo'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 300
    object dst_gruposCODGRUPO: TStringField
      FieldName = 'CODGRUPO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 3
    end
    object dst_gruposNOMGRUPO: TStringField
      FieldName = 'NOMGRUPO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 35
    end
  end
  object dsp_grupos: TDataSetProvider
    DataSet = dst_grupos
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 300
  end
  object cds_grupos: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodgrupo'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_grupos'
    Left = 528
    Top = 300
    object cds_gruposCODGRUPO: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODGRUPO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_gruposNOMGRUPO: TStringField
      DisplayLabel = 'Nome do Grupo'
      FieldName = 'NOMGRUPO'
      Size = 35
    end
  end
  object cds_ProcuraGrupo: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 300
    object cds_ProcuraGrupoCODGRUPO: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 6
      FieldName = 'CODGRUPO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_ProcuraGrupoNOMGRUPO: TStringField
      DisplayLabel = 'Nome do Grupo'
      FieldName = 'NOMGRUPO'
      Size = 35
    end
  end
  object dst_cidades: TSQLDataSet
    CommandText = 
      'select'#13#10'  CD.*,'#13#10'  ES.CODESTADO'#13#10'from '#13#10'  CIDADES CD'#13#10'inner join' +
      ' '#13#10'  ESTADOS ES on ES.CODESTADO = CD.ESTADO'#13#10'where'#13#10'  CD.CODCIDA' +
      'DE = :p_codcidade'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'p_codcidade'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 28
    object dst_cidadesCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dst_cidadesESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_cidadesNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object dst_cidadesCODESTADO: TStringField
      FieldName = 'CODESTADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
  end
  object dsp_cidades: TDataSetProvider
    DataSet = dst_cidades
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 28
  end
  object cds_cidades: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'p_codcidade'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_cidades'
    Left = 528
    Top = 28
    object cds_cidadesCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_cidadesESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_cidadesNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object cds_cidadesCODESTADO: TStringField
      FieldName = 'CODESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object cds_ProcuraCidade: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 28
    object cds_ProcuraCidadeCODCIDADE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODCIDADE'
      Required = True
      DisplayFormat = '000'
    end
    object cds_ProcuraCidadeNOMCIDADE: TStringField
      DisplayLabel = 'Nome da Cidade'
      DisplayWidth = 45
      FieldName = 'NOMCIDADE'
      Required = True
      Size = 50
    end
    object cds_ProcuraCidadeESTADO: TStringField
      DisplayLabel = 'UF'
      DisplayWidth = 5
      FieldName = 'ESTADO'
      Required = True
      FixedChar = True
      Size = 2
    end
  end
  object dst_TiposPag: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODTIPOPAG, '#13#10'  DESCTIPOPAG '#13#10'from '#13#10'  TIPOSPAG'#13#10'wher' +
      'e'#13#10'  CODTIPOPAG = :pcodtipopag'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFixedChar
        Name = 'pcodtipopag'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 83
    object dst_TiposPagCODTIPOPAG: TStringField
      FieldName = 'CODTIPOPAG'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 1
    end
    object dst_TiposPagDESCTIPOPAG: TStringField
      FieldName = 'DESCTIPOPAG'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dsp_TiposPag: TDataSetProvider
    DataSet = dst_TiposPag
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 83
  end
  object cds_TiposPag: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFixedChar
        Name = 'pcodtipopag'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_TiposPag'
    Left = 176
    Top = 83
    object cds_TiposPagCODTIPOPAG: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODTIPOPAG'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cds_TiposPagDESCTIPOPAG: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCTIPOPAG'
      Size = 35
    end
  end
  object cds_ProcuraTiposPag: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 83
    object cds_ProcuraTiposPagCODTIPOPAG: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 3
      FieldName = 'CODTIPOPAG'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cds_ProcuraTiposPagDESCTIPOPAG: TStringField
      DisplayLabel = 'Tipo de Pagamento'
      FieldName = 'DESCTIPOPAG'
      Size = 35
    end
  end
  object dst_FormasPag: TSQLDataSet
    CommandText = 
      'select'#13#10'  FP.*,'#13#10'  TP.CODTIPOPAG,'#13#10'  TP.DESCTIPOPAG'#13#10'from'#13#10'  FOR' +
      'MASPAG FP'#13#10'left join TIPOSPAG TP on TP.CODTIPOPAG = FP.TIPOBASIC' +
      'O'#13#10'where'#13#10'  CODFORMAPAG = :pcodformapag'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftSmallint
        Name = 'pcodformapag'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 136
    object dst_FormasPagCODFORMAPAG: TSmallintField
      FieldName = 'CODFORMAPAG'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_FormasPagDESCFORMAPAG: TStringField
      FieldName = 'DESCFORMAPAG'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 35
    end
    object dst_FormasPagVINCULADO: TStringField
      FieldName = 'VINCULADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_FormasPagTIPOBASICO: TStringField
      FieldName = 'TIPOBASICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_FormasPagCODTIPOPAG: TStringField
      FieldName = 'CODTIPOPAG'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_FormasPagDESCTIPOPAG: TStringField
      FieldName = 'DESCTIPOPAG'
      ProviderFlags = []
      Size = 35
    end
    object dst_FormasPagPARCELADO: TStringField
      FieldName = 'PARCELADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_FormasPagPARCIGUAIS: TStringField
      FieldName = 'PARCIGUAIS'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_FormasPagDENTREPARC: TSmallintField
      FieldName = 'DENTREPARC'
      ProviderFlags = [pfInUpdate]
    end
    object dst_FormasPagENTRADA: TStringField
      FieldName = 'ENTRADA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_FormasPagQUANTPARC: TSmallintField
      FieldName = 'QUANTPARC'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_FormasPag: TDataSetProvider
    DataSet = dst_FormasPag
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 136
  end
  object cds_FormasPag: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftSmallint
        Name = 'pcodformapag'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_FormasPag'
    Left = 176
    Top = 136
    object cds_FormasPagCODFORMAPAG: TSmallintField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 5
      FieldName = 'CODFORMAPAG'
      Required = True
      DisplayFormat = '000'
    end
    object cds_FormasPagDESCFORMAPAG: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCFORMAPAG'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_FormasPagVINCULADO: TStringField
      DisplayLabel = 'Vinculado'
      DisplayWidth = 1
      FieldName = 'VINCULADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_FormasPagTIPOBASICO: TStringField
      DisplayLabel = 'Tipo B'#225'sico'
      FieldName = 'TIPOBASICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_FormasPagCODTIPOPAG: TStringField
      FieldName = 'CODTIPOPAG'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_FormasPagDESCTIPOPAG: TStringField
      FieldName = 'DESCTIPOPAG'
      ProviderFlags = []
      Size = 35
    end
    object cds_FormasPagPARCELADO: TStringField
      DisplayLabel = 'Parcelado'
      FieldName = 'PARCELADO'
      FixedChar = True
      Size = 1
    end
    object cds_FormasPagPARCIGUAIS: TStringField
      DisplayLabel = 'Parcelas Iguais '
      FieldName = 'PARCIGUAIS'
      FixedChar = True
      Size = 1
    end
    object cds_FormasPagDENTREPARC: TSmallintField
      DisplayLabel = 'Quant. Dias'
      FieldName = 'DENTREPARC'
    end
    object cds_FormasPagENTRADA: TStringField
      DisplayLabel = 'Entrada'
      FieldName = 'ENTRADA'
      FixedChar = True
      Size = 1
    end
    object cds_FormasPagQUANTPARC: TSmallintField
      DisplayLabel = 'Quant. Parcelas'
      FieldName = 'QUANTPARC'
    end
  end
  object cds_ProcuraFormasPag: TSQLClientDataSet
    CommandText = 
      'select  '#13#10'  FP.*,'#13#10'  TP.DESCTIPOPAG'#13#10'from '#13#10'  FORMASPAG FP'#13#10'left' +
      ' join TIPOSPAG TP on TP.CODTIPOPAG = FP.TIPOBASICO'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 136
    object cds_ProcuraFormasPagCODFORMAPAG: TSmallintField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 5
      FieldName = 'CODFORMAPAG'
      Required = True
      DisplayFormat = '000'
    end
    object cds_ProcuraFormasPagDESCFORMAPAG: TStringField
      DisplayLabel = 'Forma de Pagamento'
      FieldName = 'DESCFORMAPAG'
      Required = True
      Size = 35
    end
    object cds_ProcuraFormasPagDESCTIPOPAG: TStringField
      DisplayLabel = 'Tipo B'#225'sico'
      DisplayWidth = 20
      FieldName = 'DESCTIPOPAG'
      Required = True
      Size = 35
    end
    object cds_ProcuraFormasPagVINCULADO: TStringField
      Alignment = taCenter
      DisplayLabel = 'Vinculado'
      DisplayWidth = 3
      FieldName = 'VINCULADO'
      FixedChar = True
      Size = 1
    end
    object cds_ProcuraFormasPagPARCELADO: TStringField
      Alignment = taCenter
      DisplayLabel = 'Parcelado'
      FieldName = 'PARCELADO'
      FixedChar = True
      Size = 1
    end
    object cds_ProcuraFormasPagPARCIGUAIS: TStringField
      DisplayLabel = 'Parc. Iguais'
      FieldName = 'PARCIGUAIS'
      FixedChar = True
      Size = 1
    end
    object cds_ProcuraFormasPagQUANTPARC: TSmallintField
      DisplayLabel = 'Quant. Parc'
      FieldName = 'QUANTPARC'
    end
    object cds_ProcuraFormasPagENTRADA: TStringField
      Alignment = taCenter
      DisplayLabel = 'Entrada'
      FieldName = 'ENTRADA'
      FixedChar = True
      Size = 1
    end
    object cds_ProcuraFormasPagDENTREPARC: TSmallintField
      DisplayLabel = 'Dias'
      FieldName = 'DENTREPARC'
    end
    object cds_ProcuraFormasPagTIPOBASICO: TStringField
      DisplayLabel = 'Tipo B'#225'sico'
      FieldName = 'TIPOBASICO'
      Required = True
      Visible = False
      FixedChar = True
      Size = 1
    end
  end
  object dst_vendedores: TSQLDataSet
    CommandText = 
      'select '#13#10'  VD.*, '#13#10'  CD.CODCIDADE, '#13#10'  CD.NOMCIDADE,'#13#10'  CD.ESTAD' +
      'O'#13#10'from '#13#10'  VENDEDORES VD'#13#10'left join CIDADES CD on CD.CODCIDADE ' +
      '= VD.CIDADE'#13#10'where'#13#10'  CODVENDEDOR = :pcodvendedor'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodvendedor'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 83
    object dst_vendedoresCODVENDEDOR: TStringField
      FieldName = 'CODVENDEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 3
    end
    object dst_vendedoresNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_vendedoresENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_vendedoresCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_vendedoresCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_vendedoresBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_vendedoresCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_vendedoresUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_vendedoresDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_vendedoresESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_vendedoresSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_vendedoresCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 11
    end
    object dst_vendedoresRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object dst_vendedoresFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_vendedoresCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_vendedoresEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_vendedoresDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
    end
    object dst_vendedoresOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object dst_vendedoresDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_vendedoresFOTO: TBlobField
      FieldName = 'FOTO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_vendedoresDESCONTO: TFMTBCDField
      FieldName = 'DESCONTO'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_vendedoresCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_vendedoresNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Size = 50
    end
    object dst_vendedoresESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object dsp_vendedores: TDataSetProvider
    DataSet = dst_vendedores
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 83
  end
  object cds_vendedores: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodvendedor'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_vendedores'
    BeforePost = cds_vendedoresBeforePost
    Left = 528
    Top = 83
    object cds_vendedoresCODVENDEDOR: TStringField
      FieldName = 'CODVENDEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_vendedoresNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_vendedoresENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_vendedoresCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_vendedoresCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '99\.999\-999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_vendedoresBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_vendedoresCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_vendedoresUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object cds_vendedoresDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_vendedoresESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_vendedoresSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_vendedoresCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '999\.999\.999-99;0;_'
      FixedChar = True
      Size = 11
    end
    object cds_vendedoresRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object cds_vendedoresFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_vendedoresCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!9999\-9999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_vendedoresEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_vendedoresDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_vendedoresOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_vendedoresDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_vendedoresFOTO: TBlobField
      FieldName = 'FOTO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_vendedoresDESCONTO: TFMTBCDField
      FieldName = 'DESCONTO'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object cds_vendedoresCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_vendedoresNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Size = 50
    end
    object cds_vendedoresESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object cds_ProcuraVendedor: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 83
    object cds_ProcuraVendedorCODVENDEDOR: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 6
      FieldName = 'CODVENDEDOR'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_ProcuraVendedorNOME: TStringField
      DisplayLabel = 'Nome do Vendedor'
      DisplayWidth = 45
      FieldName = 'NOME'
      Required = True
      Size = 50
    end
    object cds_ProcuraVendedorCPF: TStringField
      DisplayWidth = 15
      FieldName = 'CPF'
      EditMask = '999\.999\.999-99;0;_'
      FixedChar = True
      Size = 11
    end
    object cds_ProcuraVendedorCELULAR: TStringField
      DisplayLabel = 'Tel. de Contato'
      FieldName = 'CELULAR'
      EditMask = '0000-0000;0;_'
      FixedChar = True
      Size = 8
    end
  end
  object dst_Clientes: TSQLDataSet
    CommandText = 
      'select '#13#10'  CL.*,'#13#10'  CD.CODCIDADE,'#13#10'  CD.NOMCIDADE,'#13#10'  CD.ESTADO'#13 +
      #10'from CLIENTES CL'#13#10'left join CIDADES CD on CD.CODCIDADE = CL.CID' +
      'ADE'#13#10'where'#13#10'   CL.CODCLIENTE = :pcodcliente'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcodcliente'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 192
    object dst_ClientesCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dst_ClientesNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object dst_ClientesENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_ClientesCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_ClientesCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_ClientesBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_ClientesCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_ClientesUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_ClientesDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_ClientesESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_ClientesSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_ClientesCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 11
    end
    object dst_ClientesRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object dst_ClientesFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_ClientesCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_ClientesEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_ClientesOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object dst_ClientesDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
    end
    object dst_ClientesDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_ClientesCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_ClientesNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Size = 50
    end
    object dst_ClientesESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object dsp_Clientes: TDataSetProvider
    DataSet = dst_Clientes
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 192
  end
  object cds_Clientes: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcodcliente'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Clientes'
    BeforePost = cds_ClientesBeforePost
    Left = 528
    Top = 192
    object cds_ClientesCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '00000'
    end
    object cds_ClientesNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object cds_ClientesENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_ClientesCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_ClientesCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '99\.999\-999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ClientesBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_ClientesCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_ClientesUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_ClientesDATANASCIMENTO: TDateField
      FieldName = 'DATANASCIMENTO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_ClientesESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_ClientesSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_ClientesCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '999\.999\.999-99;0;_'
      FixedChar = True
      Size = 11
    end
    object cds_ClientesRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object cds_ClientesFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ClientesCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!9999\-9999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ClientesEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_ClientesOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_ClientesDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_ClientesDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_ClientesCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_ClientesNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Size = 50
    end
    object cds_ClientesESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object cds_ProcuraCliente: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 192
    object cds_ProcuraClienteCODCLIENTE: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 8
      FieldName = 'CODCLIENTE'
      Required = True
      DisplayFormat = '00000'
    end
    object cds_ProcuraClienteNOME: TStringField
      DisplayLabel = 'Nome do Cliente'
      DisplayWidth = 40
      FieldName = 'NOME'
      Required = True
      Size = 50
    end
    object cds_ProcuraClienteCPF: TStringField
      Alignment = taCenter
      DisplayWidth = 16
      FieldName = 'CPF'
      EditMask = '999\.999\.999-99;0;_'
      FixedChar = True
      Size = 11
    end
    object cds_ProcuraClienteFONE: TStringField
      DisplayLabel = 'Telefone'
      DisplayWidth = 12
      FieldName = 'FONE'
      EditMask = '!9999-9999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ProcuraClienteCELULAR: TStringField
      DisplayLabel = 'Celular'
      DisplayWidth = 12
      FieldName = 'CELULAR'
      EditMask = '!9999-9999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ProcuraClienteEMAIL: TStringField
      DisplayLabel = 'E-mail'
      DisplayWidth = 30
      FieldName = 'EMAIL'
      Size = 50
    end
    object cds_ProcuraClienteDATANASCIMENTO: TDateField
      DisplayLabel = 'Data de Nascimento'
      DisplayWidth = 18
      FieldName = 'DATANASCIMENTO'
      EditMask = '!99/99/9999;0;_'
    end
  end
  object dst_Lojas: TSQLDataSet
    CommandText = 
      'select '#13#10'  LJ.*, '#13#10'  CD.CODCIDADE, '#13#10'  CD.NOMCIDADE, '#13#10'  CD.ESTA' +
      'DO'#13#10'from '#13#10'  LOJAS LJ'#13#10'left join CIDADES CD on CD.CODCIDADE = LJ' +
      '.CIDADE '#13#10'where'#13#10'  LJ.CODLOJA = :pcodloja'#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcodloja'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 248
    object dst_LojasCODLOJA: TSmallintField
      FieldName = 'CODLOJA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_LojasNOMLOJA: TStringField
      FieldName = 'NOMLOJA'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 35
    end
    object dst_LojasENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_LojasCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_LojasBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_LojasCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_LojasUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_LojasCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_LojasFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_LojasFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_LojasFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_LojasDDD: TStringField
      FieldName = 'DDD'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 4
    end
    object dst_LojasRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_LojasGERENTE: TStringField
      FieldName = 'GERENTE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_LojasFONEGER: TStringField
      FieldName = 'FONEGER'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_LojasEMAIGER: TStringField
      FieldName = 'EMAIGER'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_LojasOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object dst_LojasDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
    end
    object dst_LojasDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_LojasCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_LojasNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Size = 50
    end
    object dst_LojasESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object dsp_Lojas: TDataSetProvider
    DataSet = dst_Lojas
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 248
  end
  object cds_Lojas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcodloja'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Lojas'
    BeforePost = cds_LojasBeforePost
    Left = 528
    Top = 248
    object cds_LojasCODLOJA: TSmallintField
      FieldName = 'CODLOJA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      DisplayFormat = '000'
    end
    object cds_LojasNOMLOJA: TStringField
      FieldName = 'NOMLOJA'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 35
    end
    object cds_LojasENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_LojasCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_LojasBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_LojasCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_LojasUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_LojasCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '99\.999\-999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_LojasFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_LojasFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_LojasFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_LojasDDD: TStringField
      FieldName = 'DDD'
      ProviderFlags = [pfInUpdate]
      EditMask = '9999;0;_'
      FixedChar = True
      Size = 4
    end
    object cds_LojasRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      EditMask = '99999;0;_'
      Size = 5
    end
    object cds_LojasGERENTE: TStringField
      FieldName = 'GERENTE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_LojasFONEGER: TStringField
      FieldName = 'FONEGER'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_LojasEMAIGER: TStringField
      FieldName = 'EMAIGER'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_LojasOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_LojasDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_LojasDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_LojasCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_LojasNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_LojasESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
  end
  object cds_ProcuraLoja: TSQLClientDataSet
    CommandText = 
      'select '#13#10'  CODLOJA, '#13#10'  NOMLOJA, '#13#10'  GERENTE, '#13#10'  FONEGER, '#13#10'  E' +
      'MAIGER '#13#10'from '#13#10'  LOJAS'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 248
    object cds_ProcuraLojaCODLOJA: TSmallintField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 5
      FieldName = 'CODLOJA'
      Required = True
      DisplayFormat = '000'
    end
    object cds_ProcuraLojaNOMLOJA: TStringField
      DisplayLabel = 'Nome da Loja'
      DisplayWidth = 20
      FieldName = 'NOMLOJA'
      Required = True
      Size = 35
    end
    object cds_ProcuraLojaGERENTE: TStringField
      DisplayLabel = 'Gerente'
      DisplayWidth = 20
      FieldName = 'GERENTE'
      Size = 50
    end
    object cds_ProcuraLojaFONEGER: TStringField
      DisplayLabel = 'Telefone'
      DisplayWidth = 10
      FieldName = 'FONEGER'
      EditMask = '0000-0000;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ProcuraLojaEMAIGER: TStringField
      DisplayLabel = 'E-mail'
      DisplayWidth = 30
      FieldName = 'EMAIGER'
      Size = 50
    end
  end
  object dst_servicos: TSQLDataSet
    CommandText = 
      'select'#13#10'  CODSERVICO,'#13#10'  DESCSERVICO,'#13#10'  VLRSERVICO,'#13#10'  COMPLETA' +
      'R'#13#10'from '#13#10'  SERVICOS'#13#10'where'#13#10'  CODSERVICO = :pcodservico'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodservico'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 192
    object dst_servicosCODSERVICO: TStringField
      FieldName = 'CODSERVICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object dst_servicosDESCSERVICO: TStringField
      FieldName = 'DESCSERVICO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 35
    end
    object dst_servicosVLRSERVICO: TFMTBCDField
      FieldName = 'VLRSERVICO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Precision = 15
      Size = 2
    end
    object dst_servicosCOMPLETAR: TStringField
      FieldName = 'COMPLETAR'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  object dsp_servicos: TDataSetProvider
    DataSet = dst_servicos
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 192
  end
  object cds_servicos: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodservico'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_servicos'
    Left = 176
    Top = 192
    object cds_servicosCODSERVICO: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODSERVICO'
      Required = True
      Size = 15
    end
    object cds_servicosDESCSERVICO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCSERVICO'
      Required = True
      Size = 35
    end
    object cds_servicosVLRSERVICO: TFMTBCDField
      DisplayLabel = 'Valor'
      FieldName = 'VLRSERVICO'
      Required = True
      currency = True
      Precision = 15
      Size = 2
    end
    object cds_servicosCOMPLETAR: TStringField
      DisplayLabel = 'Completar'
      FieldName = 'COMPLETAR'
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  object cds_ProcuraServico: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 192
    object cds_ProcuraServicoCODSERVICO: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 20
      FieldName = 'CODSERVICO'
      Required = True
      Size = 15
    end
    object cds_ProcuraServicoDESCSERVICO: TStringField
      DisplayLabel = 'Descri'#231#227'o do Servi'#231'o'
      FieldName = 'DESCSERVICO'
      Size = 35
    end
    object cds_ProcuraServicoVLRSERVICO: TFMTBCDField
      Alignment = taLeftJustify
      DisplayLabel = 'Valor'
      FieldName = 'VLRSERVICO'
      currency = True
      Precision = 15
      Size = 2
    end
    object cds_ProcuraServicoCOMPLETAR: TStringField
      DisplayLabel = 'Completar'
      FieldName = 'COMPLETAR'
      FixedChar = True
      Size = 1
    end
  end
  object dst_fornecedores: TSQLDataSet
    CommandText = 
      'select '#13#10'  FR.*, '#13#10'  CD.CODCIDADE,'#13#10'  CD.NOMCIDADE,'#13#10' CD.ESTADO ' +
      #13#10'from '#13#10'  FORNECEDORES FR'#13#10'inner join CIDADES CD on CD.CODCIDAD' +
      'E = FR.CIDADE'#13#10'where'#13#10'  FR.CODFORNECEDOR = :pcodfornecedor '
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodfornecedor'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 139
    object dst_fornecedoresCODFORNECEDOR: TStringField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object dst_fornecedoresTIPOFORNECEDOR: TStringField
      FieldName = 'TIPOFORNECEDOR'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 1
    end
    object dst_fornecedoresCNPJ_CPF: TStringField
      FieldName = 'CNPJ_CPF'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_fornecedoresIE_RG: TStringField
      FieldName = 'IE_RG'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_fornecedoresRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_fornecedoresNOMEFANTASIA: TStringField
      FieldName = 'NOMEFANTASIA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_fornecedoresENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_fornecedoresCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_fornecedoresBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_fornecedoresCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fornecedoresUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_fornecedoresCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_fornecedoresFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_fornecedoresFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_fornecedoresFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_fornecedoresDDD: TStringField
      FieldName = 'DDD'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 4
    end
    object dst_fornecedoresRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_fornecedoresSITE: TStringField
      FieldName = 'SITE'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object dst_fornecedoresEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_fornecedoresREPRESENTANTE: TStringField
      FieldName = 'REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_fornecedoresFONEREP: TStringField
      FieldName = 'FONEREP'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 8
    end
    object dst_fornecedoresEMAILREP: TStringField
      FieldName = 'EMAILREP'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_fornecedoresOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object dst_fornecedoresDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fornecedoresDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fornecedoresCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fornecedoresNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Size = 50
    end
    object dst_fornecedoresESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object dsp_fornecedores: TDataSetProvider
    DataSet = dst_fornecedores
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 139
  end
  object cds_fornecedores: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodfornecedor'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_fornecedores'
    BeforePost = cds_fornecedoresBeforePost
    Left = 528
    Top = 139
    object cds_fornecedoresCODFORNECEDOR: TStringField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object cds_fornecedoresTIPOFORNECEDOR: TStringField
      FieldName = 'TIPOFORNECEDOR'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 1
    end
    object cds_fornecedoresCNPJ_CPF: TStringField
      FieldName = 'CNPJ_CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '99\.999\.999\/9999\-99;0;_'
      Size = 14
    end
    object cds_fornecedoresIE_RG: TStringField
      FieldName = 'IE_RG'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object cds_fornecedoresRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_fornecedoresNOMEFANTASIA: TStringField
      FieldName = 'NOMEFANTASIA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_fornecedoresENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_fornecedoresCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_fornecedoresBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_fornecedoresCIDADE: TIntegerField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fornecedoresUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_fornecedoresCEP: TStringField
      DisplayWidth = 8
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '99\.999\-999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_fornecedoresFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_fornecedoresFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_fornecedoresFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99999999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_fornecedoresDDD: TStringField
      FieldName = 'DDD'
      ProviderFlags = [pfInUpdate]
      EditMask = '9999;0;_'
      FixedChar = True
      Size = 4
    end
    object cds_fornecedoresRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      EditMask = '99999;0;_'
      Size = 5
    end
    object cds_fornecedoresSITE: TStringField
      FieldName = 'SITE'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_fornecedoresEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_fornecedoresREPRESENTANTE: TStringField
      FieldName = 'REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_fornecedoresFONEREP: TStringField
      FieldName = 'FONEREP'
      ProviderFlags = [pfInUpdate]
      EditMask = '!9999\-9999;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_fornecedoresEMAILREP: TStringField
      FieldName = 'EMAILREP'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_fornecedoresOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_fornecedoresDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_fornecedoresDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_fornecedoresCODCIDADE: TIntegerField
      FieldName = 'CODCIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fornecedoresNOMCIDADE: TStringField
      FieldName = 'NOMCIDADE'
      ProviderFlags = []
      Required = True
      Size = 50
    end
    object cds_fornecedoresESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object cds_ProcuraFornecedor: TSQLClientDataSet
    CommandText = 
      'select '#13#10'  CODFORNECEDOR, '#13#10'  TIPOFORNECEDOR '#13#10'  CNPJ_CPF, '#13#10'  N' +
      'OMEFANTASIA, '#13#10'  UF '#13#10'from '#13#10'  FORNECEDORES'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 139
    object cds_ProcuraFornecedorCODFORNECEDOR: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 14
      FieldName = 'CODFORNECEDOR'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_ProcuraFornecedorNOMEFANTASIA: TStringField
      DisplayLabel = 'Nome Fantasia'
      FieldName = 'NOMEFANTASIA'
      Size = 50
    end
    object cds_ProcuraFornecedorCNPJ_CPF: TStringField
      DisplayLabel = 'CNPJ/CPF'
      DisplayWidth = 18
      FieldName = 'CNPJ_CPF'
      Size = 14
    end
    object cds_ProcuraFornecedorTIPOFORNECEDOR: TStringField
      DisplayLabel = 'Tipo'
      FieldName = 'TIPOFORNECEDOR'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cds_ProcuraFornecedorUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
  end
  object dst_CFOP: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODCFOP, '#13#10'  NATOPER, '#13#10'  STATUS '#13#10'from '#13#10'  CFOP'#13#10'whe' +
      're'#13#10'  CODCFOP = :pcodcfop'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftFixedChar
        Name = 'pcodcfop'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 248
    object dst_CFOPCODCFOP: TStringField
      FieldName = 'CODCFOP'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 8
    end
    object dst_CFOPNATOPER: TStringField
      FieldName = 'NATOPER'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object dst_CFOPSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dsp_CFOP: TDataSetProvider
    DataSet = dst_CFOP
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 248
  end
  object cds_CFOP: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFixedChar
        Name = 'pcodcfop'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_CFOP'
    Left = 176
    Top = 248
    object cds_CFOPCODCFOP: TStringField
      DisplayLabel = 'CFOP'
      FieldName = 'CODCFOP'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      EditMask = '9.999.99;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_CFOPNATOPER: TStringField
      DisplayLabel = 'Natureza da Opera'#231#227'o'
      FieldName = 'NATOPER'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object cds_CFOPSTATUS: TStringField
      DisplayLabel = 'Status'
      DisplayWidth = 35
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object cds_ProcuraCFOP: TSQLClientDataSet
    CommandText = 
      'select '#13#10'  CODCFOP, '#13#10'  NATOPER, '#13#10'  STATUS '#13#10'from '#13#10'  CFOP'#13#10'whe' +
      're '#13#10'   CODCFOP like :PCODCFOP'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFixedChar
        Name = 'PCODCFOP'
        ParamType = ptInput
      end>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 248
    object cds_ProcuraCFOPCODCFOP: TStringField
      DisplayLabel = 'CFOP'
      FieldName = 'CODCFOP'
      Required = True
      EditMask = '0.000.99;0;_'
      FixedChar = True
      Size = 8
    end
    object cds_ProcuraCFOPNATOPER: TStringField
      DisplayLabel = 'Natureza da Opera'#231#227'o'
      FieldName = 'NATOPER'
      Required = True
      Size = 50
    end
    object cds_ProcuraCFOPSTATUS: TStringField
      DisplayWidth = 20
      FieldName = 'STATUS'
      Size = 35
    end
  end
  object dst_ipi: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODIPI,'#13#10'  DESCIPI,'#13#10'  ALQIPI'#13#10'from '#13#10'  IPI'#13#10'where'#13#10' ' +
      ' CODIPI = :pcodipi'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodipi'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 304
    object dst_ipiCODIPI: TStringField
      FieldName = 'CODIPI'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 2
    end
    object dst_ipiDESCIPI: TStringField
      FieldName = 'DESCIPI'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_ipiALQIPI: TSmallintField
      FieldName = 'ALQIPI'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_ipi: TDataSetProvider
    DataSet = dst_ipi
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 305
  end
  object cds_ipi: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodipi'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_ipi'
    Left = 176
    Top = 304
    object cds_ipiCODIPI: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIPI'
      Required = True
      FixedChar = True
      Size = 2
    end
    object cds_ipiDESCIPI: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCIPI'
      Required = True
      Size = 35
    end
    object cds_ipiALQIPI: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = 'Al'#237'quota'
      FieldName = 'ALQIPI'
      Required = True
    end
  end
  object cds_ProcuraIPI: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 304
    object cds_ProcuraIPICODIPI: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIPI'
      Required = True
      FixedChar = True
      Size = 2
    end
    object cds_ProcuraIPIDESCIPI: TStringField
      DisplayLabel = 'Descri'#231#227'o da Al'#237'quota de IPI'
      FieldName = 'DESCIPI'
      Size = 35
    end
    object cds_ProcuraIPIALQIPI: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'Al'#237'quota %'
      FieldName = 'ALQIPI'
    end
  end
  object dst_icms: TSQLDataSet
    CommandText = 
      'select'#13#10'  CODICMS,'#13#10'  DESCICMS,'#13#10'  ALQICMS'#13#10'from '#13#10'  ICMS'#13#10'where' +
      #13#10'  CODICMS = :pcodicms'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 360
    object dst_icmsCODICMS: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODICMS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 2
    end
    object dst_icmsDESCICMS: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCICMS'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_icmsALQICMS: TSmallintField
      DisplayLabel = 'Al'#237'quota'
      FieldName = 'ALQICMS'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_icms: TDataSetProvider
    DataSet = dst_icms
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 360
  end
  object cds_icms: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_icms'
    Left = 176
    Top = 360
    object cds_icmsCODICMS: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODICMS'
      Required = True
      FixedChar = True
      Size = 2
    end
    object cds_icmsDESCICMS: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCICMS'
      Required = True
      Size = 35
    end
    object cds_icmsALQICMS: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = 'Al'#237'quota'
      FieldName = 'ALQICMS'
      Required = True
    end
  end
  object cds_ProcuraIcms: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 360
    object cds_ProcuraIcmsCODICMS: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 4
      FieldName = 'CODICMS'
      Required = True
      FixedChar = True
      Size = 2
    end
    object cds_ProcuraIcmsDESCICMS: TStringField
      DisplayLabel = 'Descri'#231#227'o da Al'#237'quota de ICMS'
      FieldName = 'DESCICMS'
      Size = 35
    end
    object cds_ProcuraIcmsALQICMS: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'Al'#237'quota %'
      FieldName = 'ALQICMS'
    end
  end
  object dst_subgrupos: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODSUBGRUPO, '#13#10'  NOMSUBGRUPO'#13#10'from '#13#10'  SUBGRUPOS'#13#10'whe' +
      're '#13#10'  CODSUBGRUPO  = :pcodsubgrupo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodsubgrupo'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 360
    object dst_subgruposCODSUBGRUPO: TStringField
      FieldName = 'CODSUBGRUPO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 3
    end
    object dst_subgruposNOMSUBGRUPO: TStringField
      FieldName = 'NOMSUBGRUPO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dsp_subgrupos: TDataSetProvider
    DataSet = dst_subgrupos
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 360
  end
  object cds_subgrupos: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodsubgrupo'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_subgrupos'
    Left = 528
    Top = 360
    object cds_subgruposCODSUBGRUPO: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODSUBGRUPO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_subgruposNOMSUBGRUPO: TStringField
      DisplayLabel = 'Nome do Sub-Grupo'
      FieldName = 'NOMSUBGRUPO'
      Size = 35
    end
  end
  object cds_ProcuraSubgrupo: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 360
    object cds_ProcuraSubgrupoCODSUBGRUPO: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 6
      FieldName = 'CODSUBGRUPO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_ProcuraSubgrupoNOMSUBGRUPO: TStringField
      DisplayLabel = 'Nome do SubGrupo'
      FieldName = 'NOMSUBGRUPO'
      Size = 35
    end
  end
  object dst_marcas: TSQLDataSet
    CommandText = 
      'select '#13#10' CODMARCA,'#13#10' NOMMARCA'#13#10'from '#13#10'  MARCAS'#13#10'where'#13#10'  CODMAR' +
      'CA = :pcodmarca'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodmarca'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 416
    object dst_marcasCODMARCA: TStringField
      FieldName = 'CODMARCA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object dst_marcasNOMMARCA: TStringField
      FieldName = 'NOMMARCA'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dsp_marcas: TDataSetProvider
    DataSet = dst_marcas
    UpdateMode = upWhereKeyOnly
    Left = 464
    Top = 416
  end
  object cds_marcas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodmarca'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_marcas'
    Left = 528
    Top = 416
    object cds_marcasCODMARCA: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODMARCA'
      Required = True
      Size = 15
    end
    object cds_marcasNOMMARCA: TStringField
      DisplayLabel = 'Nome da Marca'
      FieldName = 'NOMMARCA'
      Size = 35
    end
  end
  object cds_ProcuraMarca: TSQLClientDataSet
    CommandText = 
      'select'#13#10' CODMARCA, '#13#10' NOMMARCA '#13#10'from'#13#10'  MARCAS '#13#10'where '#13#10'  NOMM' +
      'ARCA like :pnome'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 600
    Top = 416
    object cds_ProcuraMarcaCODMARCA: TStringField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 20
      FieldName = 'CODMARCA'
      Required = True
      Size = 15
    end
    object cds_ProcuraMarcaNOMMARCA: TStringField
      DisplayLabel = 'Nome da Marca'
      FieldName = 'NOMMARCA'
      Size = 35
    end
  end
  object dst_produtos: TSQLDataSet
    CommandText = 
      'select '#13#10'  EP.*,'#13#10'  SE.CODSECAO, SE.NOMSECAO,'#13#10'  SB.CODSUBSECAO,' +
      ' SB.NOMSUBSECAO,'#13#10'  MA.CODMARCA, MA.NOMMARCA,'#13#10'  ST.CODICMS,'#13#10'  ' +
      'CL.CODIPI'#13#10'from '#13#10'  ESTOQUE_PRODUTOS EP'#13#10'left join SECOES SE on ' +
      'SE.CODSECAO = EP.SECAO'#13#10'left join SUBSECOES SB on   SB.CODSUBSEC' +
      'AO = EP.SUBSECAO '#13#10'left join MARCAS MA on MA.CODMARCA = EP.MARCA' +
      #13#10'left join ICMS ST on ST.CODICMS = EP.SITUACAO '#13#10'left join IPI ' +
      'CL on CL.CODIPI = EP.CLASSIFICACAO'#13#10'where'#13#10'  EP.IDPRODUTO = :pid' +
      'produto'#13#10#13#10#13#10#13#10#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pidproduto'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 419
    object dst_produtosIDPRODUTO: TIntegerField
      FieldName = 'IDPRODUTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dst_produtosCODPRODUTO: TStringField
      FieldName = 'CODPRODUTO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 13
    end
    object dst_produtosREFERENCIA: TStringField
      FieldName = 'REFERENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_produtosCODFABRICANTE: TStringField
      FieldName = 'CODFABRICANTE'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 13
    end
    object dst_produtosPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object dst_produtosUNIDADE: TStringField
      FieldName = 'UNIDADE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_produtosPRECOM: TFMTBCDField
      FieldName = 'PRECOM'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosPRECUS: TFMTBCDField
      FieldName = 'PRECUS'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosPREVEN: TFMTBCDField
      FieldName = 'PREVEN'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosPREATA: TFMTBCDField
      FieldName = 'PREATA'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosQTDEATA: TFMTBCDField
      FieldName = 'QTDEATA'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 3
    end
    object dst_produtosCUSMED: TFMTBCDField
      FieldName = 'CUSMED'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosMARCA: TStringField
      FieldName = 'MARCA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_produtosLOCAL: TStringField
      FieldName = 'LOCAL'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_produtosTABPRECO: TStringField
      FieldName = 'TABPRECO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_produtosSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_produtosCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_produtosPROMOCAO: TStringField
      FieldName = 'PROMOCAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_produtosATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_produtosCOMPLETAR: TStringField
      FieldName = 'COMPLETAR'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_produtosREVISAO: TSmallintField
      FieldName = 'REVISAO'
    end
    object dst_produtosGENERICO: TStringField
      FieldName = 'GENERICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_produtosCODGEN: TStringField
      FieldName = 'CODGEN'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_produtosCODSITDIC: TStringField
      FieldName = 'CODSITDIC'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object dst_produtosCODGRUDIC: TStringField
      FieldName = 'CODGRUDIC'
      ProviderFlags = [pfInUpdate]
      Size = 7
    end
    object dst_produtosVALIDADE: TDateField
      FieldName = 'VALIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_produtosPESO: TFMTBCDField
      FieldName = 'PESO'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 3
    end
    object dst_produtosTAMANHO: TStringField
      FieldName = 'TAMANHO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object dst_produtosANTECIPADO: TStringField
      FieldName = 'ANTECIPADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_produtosAUTOR: TStringField
      FieldName = 'AUTOR'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_produtosSECAO: TStringField
      FieldName = 'SECAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object dst_produtosSUBSECAO: TStringField
      FieldName = 'SUBSECAO'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 3
    end
    object dst_produtosMARGEM: TFMTBCDField
      FieldName = 'MARGEM'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosAREA: TStringField
      FieldName = 'AREA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_produtosDESCONTO: TFMTBCDField
      FieldName = 'DESCONTO'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object dst_produtosDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
    end
    object dst_produtosDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_produtosOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 250
    end
    object dst_produtosCODSECAO: TStringField
      FieldName = 'CODSECAO'
      ProviderFlags = []
      FixedChar = True
      Size = 3
    end
    object dst_produtosNOMSECAO: TStringField
      FieldName = 'NOMSECAO'
      ProviderFlags = []
      Size = 35
    end
    object dst_produtosCODSUBSECAO: TStringField
      FieldName = 'CODSUBSECAO'
      ProviderFlags = []
      FixedChar = True
      Size = 3
    end
    object dst_produtosNOMSUBSECAO: TStringField
      FieldName = 'NOMSUBSECAO'
      ProviderFlags = []
      Size = 35
    end
    object dst_produtosCODMARCA: TStringField
      FieldName = 'CODMARCA'
      ProviderFlags = []
      Size = 15
    end
    object dst_produtosNOMMARCA: TStringField
      FieldName = 'NOMMARCA'
      ProviderFlags = []
      Size = 35
    end
    object dst_produtosCODICMS: TStringField
      FieldName = 'CODICMS'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
    object dst_produtosCODIPI: TStringField
      FieldName = 'CODIPI'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object dsp_produtos: TDataSetProvider
    DataSet = dst_produtos
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 419
  end
  object cds_produtos: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pidproduto'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_produtos'
    BeforePost = cds_produtosBeforePost
    Left = 176
    Top = 419
    object cds_produtosIDPRODUTO: TIntegerField
      FieldName = 'IDPRODUTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_produtosCODPRODUTO: TStringField
      FieldName = 'CODPRODUTO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 13
    end
    object cds_produtosREFERENCIA: TStringField
      FieldName = 'REFERENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_produtosCODFABRICANTE: TStringField
      FieldName = 'CODFABRICANTE'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 13
    end
    object cds_produtosPRODUTO: TStringField
      FieldName = 'PRODUTO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object cds_produtosUNIDADE: TStringField
      FieldName = 'UNIDADE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_produtosPRECOM: TFMTBCDField
      FieldName = 'PRECOM'
      ProviderFlags = [pfInUpdate]
      currency = True
      Precision = 15
      Size = 2
    end
    object cds_produtosPRECUS: TFMTBCDField
      FieldName = 'PRECUS'
      ProviderFlags = [pfInUpdate]
      currency = True
      Precision = 15
      Size = 2
    end
    object cds_produtosPREVEN: TFMTBCDField
      FieldName = 'PREVEN'
      ProviderFlags = [pfInUpdate]
      currency = True
      Precision = 15
      Size = 2
    end
    object cds_produtosPREATA: TFMTBCDField
      FieldName = 'PREATA'
      ProviderFlags = [pfInUpdate]
      currency = True
      Precision = 15
      Size = 2
    end
    object cds_produtosQTDEATA: TFMTBCDField
      FieldName = 'QTDEATA'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 3
    end
    object cds_produtosCUSMED: TFMTBCDField
      FieldName = 'CUSMED'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object cds_produtosSUBSECAO: TStringField
      FieldName = 'SUBSECAO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_produtosSECAO: TStringField
      FieldName = 'SECAO'
      FixedChar = True
      Size = 3
    end
    object cds_produtosMARCA: TStringField
      FieldName = 'MARCA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_produtosLOCAL: TStringField
      FieldName = 'LOCAL'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_produtosTABPRECO: TStringField
      FieldName = 'TABPRECO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_produtosSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_produtosCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_produtosREVISAO: TSmallintField
      FieldName = 'REVISAO'
    end
    object cds_produtosPROMOCAO: TStringField
      FieldName = 'PROMOCAO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_produtosATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_produtosCOMPLETAR: TStringField
      FieldName = 'COMPLETAR'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_produtosGENERICO: TStringField
      FieldName = 'GENERICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_produtosCODGEN: TStringField
      Alignment = taRightJustify
      FieldName = 'CODGEN'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_produtosCODSITDIC: TStringField
      FieldName = 'CODSITDIC'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object cds_produtosCODGRUDIC: TStringField
      FieldName = 'CODGRUDIC'
      ProviderFlags = [pfInUpdate]
      Size = 7
    end
    object cds_produtosVALIDADE: TDateField
      DisplayLabel = 'Data de Validade'
      FieldName = 'VALIDADE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_produtosPESO: TFMTBCDField
      FieldName = 'PESO'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 3
    end
    object cds_produtosMARGEM: TFMTBCDField
      FieldName = 'MARGEM'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object cds_produtosDESCONTO: TFMTBCDField
      FieldName = 'DESCONTO'
      ProviderFlags = [pfInUpdate]
      Precision = 15
      Size = 2
    end
    object cds_produtosANTECIPADO: TStringField
      FieldName = 'ANTECIPADO'
      FixedChar = True
      Size = 1
    end
    object cds_produtosTAMANHO: TStringField
      DisplayLabel = 'Tamanho'
      DisplayWidth = 3
      FieldName = 'TAMANHO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_produtosAUTOR: TStringField
      FieldName = 'AUTOR'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_produtosAREA: TStringField
      FieldName = 'AREA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_produtosOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 250
    end
    object cds_produtosDATACAD: TDateField
      FieldName = 'DATACAD'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_produtosDATAALT: TDateField
      FieldName = 'DATAALT'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_produtosCODMARCA: TStringField
      FieldName = 'CODMARCA'
      ProviderFlags = []
      Size = 15
    end
    object cds_produtosNOMMARCA: TStringField
      FieldName = 'NOMMARCA'
      ProviderFlags = []
      Size = 35
    end
    object cds_produtosCODICMS: TStringField
      FieldName = 'CODICMS'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
    object cds_produtosCODIPI: TStringField
      FieldName = 'CODIPI'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
    object cds_produtosCODSECAO: TStringField
      FieldName = 'CODSECAO'
      FixedChar = True
      Size = 3
    end
    object cds_produtosNOMSECAO: TStringField
      FieldName = 'NOMSECAO'
      Size = 35
    end
    object cds_produtosCODSUBSECAO: TStringField
      FieldName = 'CODSUBSECAO'
      FixedChar = True
      Size = 3
    end
    object cds_produtosNOMSUBSECAO: TStringField
      FieldName = 'NOMSUBSECAO'
      Size = 35
    end
  end
  object cds_ProcuraProduto: TSQLClientDataSet
    CommandText = 
      'select '#13#10'  es.idproduto,'#13#10'  es.codproduto,'#13#10'  es.produto,'#13#10'  es.' +
      'codfabricante,'#13#10'  es.local,'#13#10'  es.referencia,'#13#10'  se.nomsecao,'#13#10' ' +
      ' sb.nomsubsecao,'#13#10'  mc.nommarca '#13#10'from estoque_produtos es '#13#10'lef' +
      't join secoes se on se.codsecao = es.secao '#13#10'left join subsecoes' +
      ' sb on sb.codsubsecao = es.subsecao'#13#10'left join marcas mc on mc.c' +
      'odmarca = es.marca'#13#10'left join icms st on st.codicms = es.situaca' +
      'o'#13#10'left join ipi cl on cl.codipi = es.classificacao '
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 419
    object cds_ProcuraProdutoIDPRODUTO: TIntegerField
      FieldName = 'IDPRODUTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
    end
    object cds_ProcuraProdutoCODPRODUTO: TStringField
      DisplayLabel = 'C'#243'digo do Produto'
      DisplayWidth = 15
      FieldName = 'CODPRODUTO'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_ProcuraProdutoPRODUTO: TStringField
      DisplayLabel = 'Descri'#231#227'o do Produto'
      FieldName = 'PRODUTO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_ProcuraProdutoCODFABRICANTE: TStringField
      DisplayLabel = 'C'#243'digo do Fabricante'
      DisplayWidth = 15
      FieldName = 'CODFABRICANTE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_ProcuraProdutoREFERENCIA: TStringField
      DisplayLabel = 'Refer'#234'ncia'
      DisplayWidth = 15
      FieldName = 'REFERENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_ProcuraProdutoNOMSECAO: TStringField
      DisplayLabel = 'Se'#231#227'o'
      FieldName = 'NOMSECAO'
      Size = 35
    end
    object cds_ProcuraProdutoNOMSUBSECAO: TStringField
      FieldName = 'NOMSUBSECAO'
      Size = 35
    end
    object cds_ProcuraProdutoNOMMARCA: TStringField
      DisplayLabel = 'Subse'#231#227'o'
      DisplayWidth = 15
      FieldName = 'NOMMARCA'
      Size = 35
    end
    object cds_ProcuraProdutoLOCAL: TStringField
      DisplayLabel = 'Local'
      FieldName = 'LOCAL'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dst_config: TSQLDataSet
    CommandText = 
      'select '#13#10'  GERACODIGO, '#13#10'  VALORINICIAL, '#13#10'  HAB_AUTORAREA, '#13#10'  ' +
      'HAB_ETGENSIM, '#13#10'  HAB_PESO, '#13#10'  HAB_ATIVO, '#13#10'  HAB_DIC, '#13#10'  HAB_' +
      'EDICAO '#13#10'from '#13#10'  CONFIGURACOES'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 40
    Top = 472
  end
  object dsp_config: TDataSetProvider
    DataSet = dst_config
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 472
  end
  object cds_config: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_config'
    Left = 176
    Top = 472
    object cds_configGERACODIGO: TStringField
      FieldName = 'GERACODIGO'
      FixedChar = True
      Size = 1
    end
    object cds_configVALORINICIAL: TIntegerField
      FieldName = 'VALORINICIAL'
    end
    object cds_configHAB_AUTORAREA: TStringField
      FieldName = 'HAB_AUTORAREA'
      FixedChar = True
      Size = 1
    end
    object cds_configHAB_ETGENSIM: TStringField
      FieldName = 'HAB_ETGENSIM'
      FixedChar = True
      Size = 1
    end
    object cds_configHAB_PESO: TStringField
      FieldName = 'HAB_PESO'
      FixedChar = True
      Size = 1
    end
    object cds_configHAB_ATIVO: TStringField
      FieldName = 'HAB_ATIVO'
      FixedChar = True
      Size = 1
    end
    object cds_configHAB_DIC: TStringField
      FieldName = 'HAB_DIC'
      FixedChar = True
      Size = 1
    end
    object cds_configHAB_EDICAO: TStringField
      FieldName = 'HAB_EDICAO'
      FixedChar = True
      Size = 1
    end
  end
  object dst_estados: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODESTADO, '#13#10'  SGLESTADO, '#13#10'  NOMESTADO '#13#10'from'#13#10'  EST' +
      'ADOS'#13#10'where'#13#10'  CODESTADO = :p_codestado'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftSmallint
        Name = 'p_codestado'
        ParamType = ptInput
      end>
    Left = 40
    Top = 28
    object dst_estadosCODESTADO: TSmallintField
      FieldName = 'CODESTADO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      DisplayFormat = '00'
    end
    object dst_estadosSGLESTADO: TStringField
      FieldName = 'SGLESTADO'
      ProviderFlags = [pfInUpdate]
      Required = True
      FixedChar = True
      Size = 2
    end
    object dst_estadosNOMESTADO: TStringField
      FieldName = 'NOMESTADO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
  end
  object dsp_estados: TDataSetProvider
    DataSet = dst_estados
    UpdateMode = upWhereKeyOnly
    Left = 112
    Top = 28
  end
  object cds_estados: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftSmallint
        Name = 'p_codestado'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_estados'
    Left = 176
    Top = 28
    object cds_estadosCODESTADO: TSmallintField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODESTADO'
      Required = True
    end
    object cds_estadosSGLESTADO: TStringField
      DisplayLabel = 'Sigla'
      FieldName = 'SGLESTADO'
      Required = True
      FixedChar = True
      Size = 2
    end
    object cds_estadosNOMESTADO: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'NOMESTADO'
      Required = True
      Size = 50
    end
  end
  object cds_ProcuraEstado: TSQLClientDataSet
    CommandText = 
      'select '#13#10'  CODESTADO, '#13#10'  NOMESTADO'#13#10'from'#13#10'  ESTADOS'#13#10'where'#13#10'  C' +
      'ODESTADO like :pcodestado'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFixedChar
        Name = 'pcodestado'
        ParamType = ptInput
      end>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 248
    Top = 28
    object cds_ProcuraEstadoCODESTADO: TStringField
      FieldName = 'CODESTADO'
      Required = True
      FixedChar = True
      Size = 2
    end
    object cds_ProcuraEstadoNOMESTADO: TStringField
      FieldName = 'NOMESTADO'
      Required = True
      Size = 50
    end
  end
  object cds_ProcuraProdutoLanc: TSQLClientDataSet
    CommandText = 
      'select '#13#10'  es.idproduto,'#13#10'  es.codproduto,'#13#10'  es.produto,'#13#10'  es.' +
      'codfabricante,'#13#10'  es.referencia,'#13#10'  es.unidade,'#13#10'  es.preven'#13#10'fr' +
      'om '#13#10'  estoque_produtos es '#13#10'left join grupos gp on gp.codgrupo ' +
      '= es.grupo '#13#10'left join subgrupos sg on sg.codsubgrupo = es.subgr' +
      'upo'#13#10'left join marcas mc on mc.codmarca = es.marca'#13#10'left join ic' +
      'ms st on st.codicms = es.situacao'#13#10'left join ipi cl on cl.codipi' +
      ' = es.classificacao '
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 250
    Top = 472
    object cds_ProcuraProdutoLancIDPRODUTO: TIntegerField
      FieldName = 'IDPRODUTO'
      Required = True
      Visible = False
    end
    object cds_ProcuraProdutoLancCODPRODUTO: TStringField
      DisplayLabel = 'C'#243'digo do Produto'
      FieldName = 'CODPRODUTO'
      Required = True
      Size = 13
    end
    object cds_ProcuraProdutoLancPRODUTO: TStringField
      DisplayLabel = 'Descri'#231#227'o do Produto'
      FieldName = 'PRODUTO'
      Required = True
      Size = 50
    end
    object cds_ProcuraProdutoLancCODFABRICANTE: TStringField
      DisplayLabel = 'C'#243'digo do Fabricante'
      FieldName = 'CODFABRICANTE'
      Required = True
      Size = 13
    end
    object cds_ProcuraProdutoLancREFERENCIA: TStringField
      DisplayLabel = 'Refer'#234'ncia'
      FieldName = 'REFERENCIA'
      Size = 13
    end
    object cds_ProcuraProdutoLancUNIDADE: TStringField
      DisplayLabel = 'Unid.'
      FieldName = 'UNIDADE'
      FixedChar = True
      Size = 2
    end
    object cds_ProcuraProdutoLancPREVEN: TFMTBCDField
      DisplayLabel = 'Pre'#231'o de Venda'
      FieldName = 'PREVEN'
      currency = True
      Precision = 15
      Size = 3
    end
  end
  object dst_secoes: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODSECAO,'#13#10'  NOMSECAO '#13#10'from '#13#10'  SECOES'#13#10'where'#13#10'  COD' +
      'SECAO = :PCODSECAO'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PCODSECAO'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 472
    object dst_secoesCODSECAO: TStringField
      FieldName = 'CODSECAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 3
    end
    object dst_secoesNOMSECAO: TStringField
      FieldName = 'NOMSECAO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dst_subsecoes: TSQLDataSet
    CommandText = 
      'select '#13#10'  CODSUBSECAO,'#13#10'  NOMSUBSECAO '#13#10'from '#13#10'  SUBSECOES'#13#10'whe' +
      're'#13#10'  CODSUBSECAO = :PCODSUBSECAO'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PCODSUBSECAO'
        ParamType = ptInput
      end>
    SQLConnection = dmPrincipal.ConexaoEstoque
    Left = 392
    Top = 520
    object dst_subsecoesCODSUBSECAO: TStringField
      FieldName = 'CODSUBSECAO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 3
    end
    object dst_subsecoesNOMSUBSECAO: TStringField
      FieldName = 'NOMSUBSECAO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
  end
  object dsp_secoes: TDataSetProvider
    DataSet = dst_secoes
    Left = 456
    Top = 472
  end
  object dsp_subsecoes: TDataSetProvider
    DataSet = dst_subsecoes
    Left = 456
    Top = 520
  end
  object cds_secoes: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'PCODSECAO'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_secoes'
    Left = 528
    Top = 472
    object cds_secoesCODSECAO: TStringField
      FieldName = 'CODSECAO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_secoesNOMSECAO: TStringField
      FieldName = 'NOMSECAO'
      Size = 35
    end
  end
  object cds_subsecoes: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'PCODSUBSECAO'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_subsecoes'
    Left = 528
    Top = 520
    object cds_subsecoesCODSUBSECAO: TStringField
      FieldName = 'CODSUBSECAO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_subsecoesNOMSUBSECAO: TStringField
      FieldName = 'NOMSUBSECAO'
      Size = 35
    end
  end
  object cds_ProcuraSecao: TSQLClientDataSet
    CommandText = 'select '#13#10'  CODSECAO, '#13#10'  NOMSECAO '#13#10'from '#13#10'  SECOES'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 608
    Top = 472
    object cds_ProcuraSecaoCODSECAO: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODSECAO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_ProcuraSecaoNOMSECAO: TStringField
      DisplayLabel = 'Se'#231#227'o'
      FieldName = 'NOMSECAO'
      Size = 35
    end
  end
  object cds_ProcuraSubsecao: TSQLClientDataSet
    CommandText = 'select '#13#10'  CODSUBSECAO, '#13#10'  NOMSUBSECAO '#13#10'from '#13#10'  SUBSECOES'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = dmPrincipal.ConexaoEstoque
    Left = 608
    Top = 520
    object cds_ProcuraSubsecaoCODSUBSECAO: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODSUBSECAO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cds_ProcuraSubsecaoNOMSUBSECAO: TStringField
      DisplayLabel = 'Subse'#231#227'o'
      FieldName = 'NOMSUBSECAO'
      Size = 35
    end
  end
end
